home *** CD-ROM | disk | FTP | other *** search
- object frm_Icon: Tfrm_Icon
- Left = 320
- Top = 192
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Button Icon'
- ClientHeight = 133
- ClientWidth = 321
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object lab_IcoFile: TLabel
- Left = 8
- Top = 18
- Width = 49
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Icon File:'
- end
- object lab_IcoNum: TLabel
- Left = 8
- Top = 50
- Width = 49
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Index:'
- FocusControl = txt_IcoNum
- end
- object lab_IconNums: TLabel
- Left = 128
- Top = 51
- Width = 67
- Height = 13
- Caption = '(0 icons in file)'
- end
- object Image1: TImage
- Left = 24
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image000.ico>}
- Visible = False
- end
- object Image2: TImage
- Left = 40
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image001.ico>}
- Visible = False
- end
- object Image3: TImage
- Left = 56
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image002.ico>}
- Visible = False
- end
- object Image4: TImage
- Left = 72
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image003.ico>}
- Visible = False
- end
- object Image5: TImage
- Left = 88
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image004.ico>}
- Visible = False
- end
- object Image6: TImage
- Left = 104
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image005.ico>}
- Visible = False
- end
- object Image7: TImage
- Left = 120
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image006.ico>}
- Visible = False
- end
- object Image8: TImage
- Left = 136
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image007.ico>}
- Visible = False
- end
- object Image9: TImage
- Left = 152
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image008.ico>}
- Visible = False
- end
- object Image10: TImage
- Left = 168
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image009.ico>}
- Visible = False
- end
- object Image11: TImage
- Left = 184
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image010.ico>}
- Visible = False
- end
- object Image12: TImage
- Left = 200
- Top = 80
- Width = 32
- Height = 32
- AutoSize = True
- Picture.Data = {<image011.ico>}
- Visible = False
- end
- object cmd_OK: TBitBtn
- Left = 240
- Top = 96
- Width = 74
- Height = 29
- Enabled = False
- TabOrder = 6
- OnClick = cmd_OKClick
- Kind = bkOK
- end
- object cmd_Cancel: TBitBtn
- Left = 160
- Top = 96
- Width = 74
- Height = 29
- TabOrder = 5
- Kind = bkCancel
- end
- object cmd_Help: TBitBtn
- Left = 8
- Top = 96
- Width = 74
- Height = 29
- Caption = 'Help'
- TabOrder = 4
- Kind = bkHelp
- end
- object pan_Icon: TPanel
- Left = 278
- Top = 49
- Width = 32
- Height = 32
- BevelOuter = bvNone
- TabOrder = 7
- object img_Icon: TImage
- Left = 0
- Top = 0
- Width = 32
- Height = 32
- Align = alClient
- end
- end
- object spin_IcoNum: TUpDown
- Left = 105
- Top = 45
- Width = 15
- Height = 24
- Associate = txt_IcoNum
- Min = 0
- Max = 0
- Position = 0
- TabOrder = 3
- Wrap = True
- end
- object txt_IcoNum: TEdit
- Left = 64
- Top = 45
- Width = 41
- Height = 24
- Color = clBtnFace
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- MaxLength = 4
- ParentFont = False
- ReadOnly = True
- TabOrder = 1
- Text = '0'
- OnChange = txt_IcoNumChange
- OnExit = txt_IcoNumExit
- OnKeyPress = txt_IcoNumKeyPress
- end
- object cmd_Browse: TBitBtn
- Left = 288
- Top = 12
- Width = 25
- Height = 25
- TabOrder = 2
- OnClick = cmd_BrowseClick
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
- 5555555555555555555555555555555555555555555555555555555555555555
- 555555555555555555555555555555555555555FFFFFFFFFF555550000000000
- 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
- B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
- 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
- 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
- 55555575FFF75555555555700007555555555557777555555555555555555555
- 55555555555555555555555555555555555555555555555555550000}
- NumGlyphs = 2
- end
- object txt_IcoFile: TDropEdit
- Left = 64
- Top = 12
- Width = 217
- Height = 24
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnChange = txt_IcoFileChange
- AcceptFiles = True
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Options = [ofHideReadOnly, ofFileMustExist, ofNoDereferenceLinks]
- Left = 88
- Top = 96
- end
- object img_List: TImageList
- Height = 32
- Width = 32
- Left = 120
- Top = 96
- end
- end
-